home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 023 - Big U Macroworks.dsk / CAT.DATER.bas < prev    next >
BASIC Source File  |  2019-02-16  |  357b  |  4 lines
  1. 5  PRINT : PRINT "THE CURRENT DATE WILL NOW BE SHOWN": PRINT "WHENEVER YOU CATALOG A DISK.": PRINT 
  2. 10 AD = 843: REM   JUST BELOW CAT.STEPPER AND ABOVE  CAT.FIXER
  3. 20 HI% = AD/256:LO% = AD -HI% *256: POKE 45149,LO%: POKE 45150,HI%: FOR I = 0 TO 18: READ X: POKE AD +I,X: NEXT 
  4. 100  DATA    162,4,189,143,191,15 7,88,2,202,208,247,160,36,32,112,165,76,157,159